COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE PLOT
C00005 ENDMK
C⊗;
	TITLE PLOT
	INTERNAL PLOT
	EXTERNAL FASTOU,FINFIL,EXIT,PUTFIL,OUTF

LX:	0
N:	BLOCK =1025	;LAST LOC. IS FOR OVERFLOW JUST ABOVE PL1
PLOT:	0		;SUBROUTINE PLOT(I,J,K)
	SETO  4,		;COMMON /OUTF/JJ
	CAMN	4,OUTF		;DIMENSION N(148)
	JRST	PL4		;IF(JJ.EQ.-1)GO TO 4
	MOVNM  4,LX		;L=1
	MOVEI	4,=127		;N(1)=127
	MOVEM	4,N
	MOVE	4,[ASCIZ/" "/]		;IF(JJ.EQ.' ')JJ='PLT'
	CAME	4,OUTF
	JRST	PLB
	MOVE	4,[ASCIZ/"PLT"/]
	MOVEM	4,OUTF
PLB:	JSA	16,PUTFIL	;CALL PUTFIL(JJ)
	JUMP	OUTF
	SETOM	OUTF		;JJ=-1
PL4:	MOVE	5,@2(16)	;4	IF(K.EQ.99)GO TO 1
	CAIN	5,=99
	JRST	PL1
	AOS	7,LX		;L=L+1
;;	MOVEI	7,N
;;	ADD	7,LX		;CALL PAC(N(L),I)[SEE MSFAI.FAI]
	HRRZ	4,2(16)
	HRR	5,@4
	LSHC	5,-10
	HRRZ	4,1(16)
	HRR	5,@4
	LSHC	5,-16
	HRRZ	4,(16)
	HRR	5,@4
	LSHC	5,-16
	MOVEM	6,N-1(7)

	MOVE	4,LX
	MOVE	0,4
	IDIVI	4,=128		;JZ=MOD(L,128)
	JUMPN	5,NOWD		;IF(JZ.EQ.0)L=L+1, N(L)=127
	MOVEI	5,=127
	MOVEM   5,N(7)
	AOS	LX
NOWD:	CAIGE	0,=1024	;3	IF(L.LT.1024)RETURN
	JRA	16,3(16)
	JSA	16,FASTOU	;2	CALL FASTOU(N,1024)
	JUMP	N
	JUMP	[=1024]
	MOVEI	7,1		;L=1
	MOVEM	7,LX
	JRA	16,3(16)	;RETURN
PL1:	MOVE 4,LX
	IDIVI 4,=128		;JJJ=L/128
	IMULI 4,=128		;JJJJ=JJJ*128
	MOVE 7,4
	MOVEM 5,N(7)		;FOUND LAST WDCNT.
	ADDI 4,=128		; END OF NEXT LOOP
	MOVE 5,LX
	MOVE	7,N-1(5)	;J=N(L)
	AOJ 5,			; (L=L+1)
PL100:	MOVEM	7,N-1(5)	;DO 100 JJ=L,JXXX  (AC4)
				;100	N(JJ)=J
	CAMGE	5,4
	AOJA	5,PL100
	JSA	16,FASTOU	;CALL FASTOU(N,512)
	JUMP	N
	JUMP	4
	JSA	16,FINFIL	;CALL FINFIL
	SETZM	OUTF		;JJ=0
	JSA	16,EXIT		;CALL EXIT

	END